home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / gnustuff / tos / gawk / gawk213b.zoo / test / reverse.awk < prev    next >
Encoding:
Text File  |  1991-04-06  |  225 b   |  14 lines
  1. #this program creates palindromic output - slightly modified from Gawk Manual
  2. {
  3.     rev($0, length)
  4. }
  5.  
  6. function rev(str, len) {
  7.     if (len == 0) {
  8.         print " ", $0
  9.         return
  10.     }
  11.     printf "%c", substr(str, len, 1)
  12.     rev(str, len - 1)
  13. }
  14.